home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / YAGI3EL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  3.7 KB  |  133 lines
  1. 10  'YAGI3EL - YAGI 3-element beam - 13 AUG 95 rev. 28 SEP 96
  2. 20  CLS:KEY OFF
  3. 30  IF EX$="" THEN EX$="EXIT"
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U1$="####.###"
  7. 70  U2$="###.##"
  8. 80  U3$="####.#"
  9. 90  '
  10. 100  '...start
  11. 110  CLS
  12. 120  COLOR 15,2
  13. 130  PRINT " YAGI Wide-Spaced 3-Element Beam";TAB(57);"by George Murphy VE3ERP ";
  14. 140  COLOR 1,0:PRINT STRING$(80,223);
  15. 150  COLOR 7,0
  16. 160  '
  17. 170  '.....standard antenna disclaimer
  18. 180  OPEN"I",1,"\data\docfiles\antenna.doc"
  19. 190  IF EOF(1)THEN 210
  20. 200  INPUT#1,Z$:PRINT "   ";Z$:GOTO 190
  21. 210  CLOSE
  22. 220  PRINT
  23. 230  PRINT "   This program is based on design data from the 1994 ARRL ";
  24. 240  PRINT "HANDBOOK for the";
  25. 250  PRINT "   RADIO AMATEUR, pages 17-15 and 17-16."
  26. 260  PRINT UL$;
  27. 270  COLOR 0,7:LOCATE CSRLIN,22
  28. 280  PRINT " Press 1 to continue or 0 to EXIT....."
  29. 290  COLOR 7,0
  30. 300  Z$=INKEY$:IF Z$=""THEN 300
  31. 310  IF Z$="0"THEN CLS:RUN EX$
  32. 320  IF Z$="1"THEN 340
  33. 330  GOTO 300
  34. 340  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  35. 350  '
  36. 360  '.....data input
  37. 370  INPUT " ENTER: Desired optimum frequency (MHz) ";F
  38. 380  PRINT UL$;
  39. 390  T=6
  40. 400  PRINT TAB(T);
  41. 410  PRINT "Optimum element spacing is between 0.15 and 0.25 wavelength. Best";
  42. 420  PRINT TAB(T);
  43. 430  PRINT "overall choice is 0.2 wavelength, but due to space or other reasons";
  44. 440  PRINT TAB(T);
  45. 450  PRINT "you may wish to choose another spacing.
  46. 460  PRINT
  47. 470  PRINT TAB(T);
  48. 480  PRINT "Press number in < > to choose element spacing:"
  49. 490  PRINT UL$;
  50. 500  PRINT "     < 1 >  .15 wavelength"
  51. 510  PRINT "     < 2 >  .20 wavelength (best choice)"
  52. 520  PRINT "     < 3 >  .25 wavelength"
  53. 530  Z$=INKEY$
  54. 540  IF Z$="1"THEN J=0.15:GOTO 580
  55. 550  IF Z$="2"THEN J=0.2:GOTO 580
  56. 560  IF Z$="3"THEN J=0.25:GOTO 580
  57. 570  GOTO 530
  58. 580  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  59. 590   W = 300/F           'wavelength
  60. 600   S = J*W/0.3048
  61. 610   L = 2*S
  62. 620   IF J=0.15 THEN V1=495:V2=473:V3=460
  63. 630   IF J=0.2 THEN V1=490:V2=471:V3=452
  64. 640   IF J=0.25 THEN V1=485:V2=469.5:V3=443
  65. 650   R = V1/F            'reflector
  66. 660   D = V2/F            'driven element
  67. 670   H = V3/F            'director
  68. 680   X=SQR((R/2)^2+S^2)  'turning radius
  69. 690   K = L*0.3048
  70. 700   M = S*0.3048
  71. 710   O = R*0.3048
  72. 720   P = D*0.3048
  73. 730   Q = H*0.3048
  74. 740   Y=X*0.3048
  75. 750  LOCATE 3
  76. 760  T=25
  77. 770  PRINT TAB(T);"Centre Frequency........";USING U1$;F;:PRINT " MHz"
  78. 780  PRINT TAB(T);"Wavelength..............";USING U1$;W;:PRINT " metres"
  79. 790  PRINT TAB(T);"Element Spacing.........";USING U1$;J;:PRINT " x Wavelength"
  80. 800  PRINT TAB(T);"Director to Reflector...";USING U1$;K;
  81. 810  PRINT " m.(";USING U2$;L;:PRINT " feet )"
  82. 820  PRINT TAB(T);"Feed Point Impedance....  35 - (approx.) @";F;"MHz"
  83. 830  IF J=0.2 THEN JJ=7.1 ELSE JJ=7
  84. 840  PRINT TAB(T);"Gain....................";USING U3$;JJ;:PRINT " (approx.)"
  85. 850  PRINT TAB(T);"Front-to-Back ratio.....  30:1 maximum"
  86. 860  PRINT TAB(T);"Turning Radius..........";USING U1$;Y;
  87. 870  PRINT " m.(";USING U2$;X;:PRINT " feet )"
  88. 880  PRINT
  89. 890  '
  90. 900  '.....diagram
  91. 910  RO=10:CO=5
  92. 920  COLOR 0,7
  93. 930  LOCATE RO+ 1,CO:PRINT "                   "
  94. 940  LOCATE RO+ 2,CO:PRINT "   SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDUSINGSOUNDSOUNDSOUNDSOUNDSOUNDSOUND   "
  95. 950  LOCATE RO+ 3,CO:PRINT "         OPEN         "
  96. 960  LOCATE RO+ 4,CO:PRINT "  SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDUSINGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND  "
  97. 970  LOCATE RO+ 5,CO:PRINT "         OPEN         "
  98. 980  LOCATE RO+ 6,CO:PRINT " SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDUSINGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND "
  99. 990  LOCATE RO+ 7,CO:PRINT "                   "
  100. 1000  COLOR 7,0
  101. 1010  LOCATE RO+ 2,CO+20:PRINT "DEFSNGSOUNDSOUNDSOUND DIRECTOR...........";USING U1$;Q;
  102. 1020  PRINT " m.(";USING U2$;H;:PRINT " ft.) Long"
  103. 1030  LOCATE RO+ 3,CO+20:PRINT "DEFSNGSOUNDSOUNDSOUND  element spacing...";USING U1$;M;
  104. 1040  PRINT " m.(";USING U2$;S;:PRINT " ft.)"
  105. 1050  LOCATE RO+ 4,CO+20:PRINT "DEFSNGSOUNDSOUNDSOUND DRIVEN ELEMENT.....";USING U1$;P;
  106. 1060  PRINT " m.(";USING U2$;D;:PRINT " ft.) Long"
  107. 1070  LOCATE RO+ 5,CO+20:PRINT "DEFSNGSOUNDSOUNDSOUND  element spacing...";USING U1$;M;
  108. 1080  PRINT " m.(";USING U2$;S;:PRINT " ft.)"
  109. 1090  LOCATE RO+ 6,CO+20:PRINT "DEFSNGSOUNDSOUNDSOUND REFLECTOR..........";USING U1$;O;
  110. 1100  PRINT " m.(";USING U2$;R;:PRINT " ft.) Long"
  111. 1110  LOCATE RO+ 7,CO+20:PRINT "      Boom Length (min.)";USING U1$;2*M;
  112. 1120  PRINT " m.(";USING U2$;2*S;:PRINT " ft.)"
  113. 1130  LOCATE RO+ 8:PRINT UL$;
  114. 1140  '
  115. 1150  '.....end
  116. 1160  GOSUB 1200
  117. 1170  GOTO 100   'start
  118. 1180  END
  119. 1190  '
  120. 1200  'HARDCOPY
  121. 1210  GOSUB 1320:LOCATE 25,2:COLOR 14,6
  122. 1220  PRINT " Press 1 to print screen, 2 to print screen & ";
  123. 1230  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  124. 1240  Z$=INKEY$:IF Z$="3"THEN GOSUB 1320:RETURN
  125. 1250  IF Z$="1"OR Z$="2"THEN GOSUB 1320:GOTO 1270
  126. 1260  GOTO 1240
  127. 1270  FOR QX=1 TO 24:FOR QY=1 TO 80
  128. 1280  LPRINT CHR$(SCREEN(QX,QY));
  129. 1290  NEXT QY:NEXT QX
  130. 1300  IF Z$="2"THEN LPRINT CHR$(12)
  131. 1310  GOTO 1210
  132. 1320  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  133.